home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 October / Chip_2004-10_cd1.bin / software / stahuj / prog / pdfdemo.exe / {app} / pdfmain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-10-30  |  13.2 KB  |  430 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
  4. Begin VB.Form pdfmain 
  5.    Caption         =   "FyTek PDF File Creator"
  6.    ClientHeight    =   7335
  7.    ClientLeft      =   165
  8.    ClientTop       =   735
  9.    ClientWidth     =   7650
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   7335
  12.    ScaleWidth      =   7650
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin VB.CheckBox chk128 
  15.       Caption         =   "128-bit Encryption (Acrobat 5.0 or higher)"
  16.       Height          =   555
  17.       Left            =   4680
  18.       TabIndex        =   15
  19.       Top             =   6000
  20.       Width           =   2535
  21.    End
  22.    Begin VB.TextBox usrPass 
  23.       Height          =   285
  24.       Left            =   4680
  25.       TabIndex        =   14
  26.       Top             =   5640
  27.       Width           =   2175
  28.    End
  29.    Begin VB.TextBox ownPass 
  30.       Height          =   285
  31.       Left            =   4680
  32.       TabIndex        =   13
  33.       Top             =   5160
  34.       Width           =   2175
  35.    End
  36.    Begin VB.CheckBox chkMail 
  37.       Caption         =   "Attach to Email"
  38.       Height          =   315
  39.       Left            =   1560
  40.       TabIndex        =   12
  41.       Top             =   6120
  42.       Width           =   1815
  43.    End
  44.    Begin VB.CheckBox chkPrint 
  45.       Caption         =   "Print"
  46.       Height          =   375
  47.       Left            =   1560
  48.       TabIndex        =   11
  49.       Top             =   5640
  50.       Width           =   1335
  51.    End
  52.    Begin VB.CheckBox chkPreview 
  53.       Caption         =   "Preview"
  54.       Height          =   375
  55.       Left            =   1560
  56.       TabIndex        =   10
  57.       Top             =   5160
  58.       Value           =   1  'Checked
  59.       Width           =   1335
  60.    End
  61.    Begin MSComctlLib.ImageList ImageList1 
  62.       Left            =   360
  63.       Top             =   5040
  64.       _ExtentX        =   1005
  65.       _ExtentY        =   1005
  66.       BackColor       =   -2147483643
  67.       ImageWidth      =   16
  68.       ImageHeight     =   16
  69.       MaskColor       =   12632256
  70.       _Version        =   393216
  71.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  72.          NumListImages   =   3
  73.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  74.             Picture         =   "pdfmain.frx":0000
  75.             Key             =   ""
  76.          EndProperty
  77.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  78.             Picture         =   "pdfmain.frx":011C
  79.             Key             =   ""
  80.          EndProperty
  81.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  82.             Picture         =   "pdfmain.frx":0234
  83.             Key             =   ""
  84.          EndProperty
  85.       EndProperty
  86.    End
  87.    Begin MSComctlLib.Toolbar Toolbar1 
  88.       Align           =   1  'Align Top
  89.       Height          =   570
  90.       Left            =   0
  91.       TabIndex        =   9
  92.       Top             =   0
  93.       Width           =   7650
  94.       _ExtentX        =   13494
  95.       _ExtentY        =   1005
  96.       ButtonWidth     =   873
  97.       ButtonHeight    =   953
  98.       Appearance      =   1
  99.       Style           =   1
  100.       ImageList       =   "ImageList1"
  101.       _Version        =   393216
  102.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  103.          NumButtons      =   5
  104.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  105.             Caption         =   "New"
  106.             ImageIndex      =   1
  107.          EndProperty
  108.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  109.             ImageIndex      =   2
  110.             Style           =   3
  111.          EndProperty
  112.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  113.             Caption         =   "Open"
  114.             ImageIndex      =   2
  115.          EndProperty
  116.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  117.             Caption         =   "Save"
  118.             ImageIndex      =   3
  119.          EndProperty
  120.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  121.             Style           =   3
  122.          EndProperty
  123.       EndProperty
  124.    End
  125.    Begin VB.TextBox txtEditor 
  126.       BeginProperty Font 
  127.          Name            =   "Courier New"
  128.          Size            =   9
  129.          Charset         =   0
  130.          Weight          =   400
  131.          Underline       =   0   'False
  132.          Italic          =   0   'False
  133.          Strikethrough   =   0   'False
  134.       EndProperty
  135.       Height          =   3315
  136.       Left            =   5
  137.       MultiLine       =   -1  'True
  138.       ScrollBars      =   3  'Both
  139.       TabIndex        =   8
  140.       Top             =   660
  141.       Width           =   6900
  142.    End
  143.    Begin VB.TextBox infile 
  144.       Height          =   285
  145.       Left            =   1560
  146.       TabIndex        =   6
  147.       Top             =   4260
  148.       Width           =   5415
  149.    End
  150.    Begin VB.CommandButton cmdInput 
  151.       Caption         =   "..."
  152.       Height          =   255
  153.       Left            =   1200
  154.       TabIndex        =   5
  155.       Top             =   4260
  156.       Width           =   315
  157.    End
  158.    Begin MSComctlLib.StatusBar StatusBar1 
  159.       Align           =   2  'Align Bottom
  160.       Height          =   375
  161.       Left            =   0
  162.       TabIndex        =   4
  163.       Top             =   6960
  164.       Width           =   7650
  165.       _ExtentX        =   13494
  166.       _ExtentY        =   661
  167.       _Version        =   393216
  168.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  169.          NumPanels       =   1
  170.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  171.             Object.Width           =   8819
  172.             MinWidth        =   8819
  173.          EndProperty
  174.       EndProperty
  175.    End
  176.    Begin MSComDlg.CommonDialog CommonDialog1 
  177.       Left            =   960
  178.       Top             =   5040
  179.       _ExtentX        =   847
  180.       _ExtentY        =   847
  181.       _Version        =   393216
  182.    End
  183.    Begin VB.CommandButton cmdOutput 
  184.       Caption         =   "..."
  185.       Height          =   255
  186.       Left            =   1200
  187.       TabIndex        =   3
  188.       Top             =   4680
  189.       Width           =   315
  190.    End
  191.    Begin VB.CommandButton go 
  192.       Caption         =   "Create PDF"
  193.       Height          =   375
  194.       Left            =   3120
  195.       TabIndex        =   2
  196.       Top             =   6480
  197.       Width           =   1335
  198.    End
  199.    Begin VB.TextBox outfile 
  200.       Height          =   285
  201.       Left            =   1560
  202.       TabIndex        =   1
  203.       Top             =   4680
  204.       Width           =   5415
  205.    End
  206.    Begin VB.Label Label1 
  207.       Caption         =   "User Password"
  208.       Height          =   255
  209.       Left            =   3360
  210.       TabIndex        =   17
  211.       Top             =   5655
  212.       Width           =   1335
  213.    End
  214.    Begin VB.Label ownLabel 
  215.       Caption         =   "Owner Password"
  216.       Height          =   255
  217.       Left            =   3240
  218.       TabIndex        =   16
  219.       Top             =   5175
  220.       Width           =   1335
  221.    End
  222.    Begin VB.Label lab_infile 
  223.       Alignment       =   1  'Right Justify
  224.       Caption         =   "Input File"
  225.       Height          =   255
  226.       Left            =   120
  227.       TabIndex        =   7
  228.       Top             =   4260
  229.       Width           =   975
  230.    End
  231.    Begin VB.Label lab_outfile 
  232.       Alignment       =   1  'Right Justify
  233.       Caption         =   "Output File"
  234.       Height          =   255
  235.       Left            =   120
  236.       TabIndex        =   0
  237.       Top             =   4680
  238.       Width           =   975
  239.    End
  240.    Begin VB.Menu mnuFile 
  241.       Caption         =   "&File"
  242.       Begin VB.Menu mnuNewScript 
  243.          Caption         =   "&New Script"
  244.       End
  245.       Begin VB.Menu mnuOpenScript 
  246.          Caption         =   "&Open Script"
  247.       End
  248.       Begin VB.Menu mnuSpacer1 
  249.          Caption         =   "-"
  250.       End
  251.       Begin VB.Menu mnuSave 
  252.          Caption         =   "&Save"
  253.       End
  254.       Begin VB.Menu mnuSaveAs 
  255.          Caption         =   "Save &As"
  256.       End
  257.       Begin VB.Menu mnuSpacer2 
  258.          Caption         =   "-"
  259.       End
  260.       Begin VB.Menu mnuCreatePDF 
  261.          Caption         =   "&Create PDF"
  262.       End
  263.       Begin VB.Menu mnuSpacer3 
  264.          Caption         =   "-"
  265.       End
  266.       Begin VB.Menu Exit 
  267.          Caption         =   "E&xit"
  268.       End
  269.    End
  270. Attribute VB_Name = "pdfmain"
  271. Attribute VB_GlobalNameSpace = False
  272. Attribute VB_Creatable = False
  273. Attribute VB_PredeclaredId = True
  274. Attribute VB_Exposed = False
  275. Public CancelUnload As Boolean
  276. Private Sub cmdInput_Click()
  277. OpenScript
  278. End Sub
  279. Private Sub cmdOutput_Click()
  280. CommonDialog1.DefaultExt = ".rpt"
  281. CommonDialog1.Filter = "Adobe Acrobat|*.pdf"
  282. CommonDialog1.ShowOpen
  283. outfile.Text = CommonDialog1.FileName
  284. End Sub
  285. Private Sub Exit_Click()
  286. Unload Me
  287. End Sub
  288. Private Sub Form_Load()
  289. bolScriptNeedsSaving = False
  290. Toolbar1.Buttons(4).Enabled = False
  291. End Sub
  292. Private Sub Form_Resize()
  293. txtEditor.Width = pdfmain.Width - 100
  294. End Sub
  295. Public Sub Form_Unload(Cancel As Integer)
  296. CheckForSave
  297. If CancelUnload Then Cancel = 1
  298. End Sub
  299. Private Sub go_Click()
  300. CreatePDF
  301. End Sub
  302. Public Sub OpenScript()
  303. CommonDialog1.InitDir = App.Path
  304. CommonDialog1.DefaultExt = ".rpt"
  305. CommonDialog1.Filter = "PDF Creator|*.rpt"
  306. CommonDialog1.ShowOpen
  307. If CommonDialog1.FileName = "" Then Exit Sub
  308. strScriptFilePath = CommonDialog1.FileName
  309. infile.Text = strScriptFilePath
  310. StatusBar1.Panels(1).Text = "Opening " & infile.Text
  311. If Not (FileSys.FileExists(infile.Text)) Then
  312.     MsgBox "File does not exist"
  313.     Exit Sub
  314. End If
  315. Open infile.Text For Input As #1
  316. Do Until EOF(1)
  317.     Line Input #1, strLineInput
  318.     If Not EOF(1) Then
  319.         strFileInput = strFileInput & strLineInput & vbCrLf
  320.     Else
  321.         strFileInput = strFileInput & strLineInput
  322.     End If
  323. Close #1
  324. StatusBar1.Panels(1).Text = ""
  325. txtEditor.Text = strFileInput
  326. bolScriptNeedsSaving = False
  327. Toolbar1.Buttons(4).Enabled = False
  328. End Sub
  329. Public Sub SaveScript()
  330. If Not (FileSys.FileExists(infile.Text)) Then
  331.   CommonDialog1.InitDir = App.Path
  332.   CommonDialog1.DefaultExt = ".rpt"
  333.   CommonDialog1.Filter = "PDF Creator|*.rpt"
  334.   CommonDialog1.ShowOpen
  335. End If
  336. If CommonDialog1.FileName = "" Then Exit Sub
  337. strScriptFilePath = CommonDialog1.FileName
  338. infile.Text = strScriptFilePath
  339. FileSys.DeleteFile (strScriptFilePath)
  340. StatusBar1.Panels(1).Text = "Saving " & strScriptFilePath
  341. Open strScriptFilePath For Binary As #1
  342. Put #1, , txtEditor.Text
  343. Close #1
  344. bolScriptNeedsSaving = False
  345. Toolbar1.Buttons(4).Enabled = False
  346. StatusBar1.Panels(1).Text = ""
  347. End Sub
  348. Private Sub mnuCreatePDF_Click()
  349. CreatePDF
  350. End Sub
  351. Private Sub mnuNewScript_Click()
  352. NewScript
  353. End Sub
  354. Private Sub mnuOpenScript_Click()
  355. OpenScript
  356. End Sub
  357. Private Sub PDF_Error(errCode As Long, errDesc As String)
  358. MsgBox "PDFCreator.dll error #" & errCode & vbCrLf & _
  359.     errDesc
  360. End Sub
  361. Private Sub mnuSave_Click()
  362. SaveScript
  363. End Sub
  364. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  365. Select Case Button.Index
  366.     Case 1
  367.         NewScript
  368.     Case 3  ' Open Button
  369.         OpenScript
  370.     Case 4
  371.         SaveScript
  372. End Select
  373. End Sub
  374. Private Sub txtEditor_Change()
  375. If bolScriptNeedsSaving = True Then
  376.     Exit Sub
  377.     bolScriptNeedsSaving = True
  378.     Toolbar1.Buttons(4).Enabled = True
  379. End If
  380. End Sub
  381. Private Sub NewScript()
  382. Dim intResult As Integer
  383. CheckForSave
  384. txtEditor.Text = ""
  385. bolScriptNeedsSaving = False
  386. Toolbar1.Buttons(4).Enabled = False
  387. End Sub
  388. Public Sub CheckForSave()
  389. ' If the script needs to be saved, then prompt the user
  390. '   otherwise, simply continue on to clearing the
  391. '   text box
  392. CancelUnload = False
  393. If bolScriptNeedsSaving = True Then
  394.     intResult = MsgBox("Do you want to save your current script?", vbYesNoCancel, "Script needs saving")
  395.     If intResult = vbCancel Then
  396.         CancelUnload = True
  397.         Exit Sub
  398.     ElseIf intResult = vbYes Then
  399.         SaveScript
  400.     End If
  401. End If
  402. End Sub
  403. Public Sub CreatePDF()
  404. Dim PDF As Object
  405. Set PDF = CreateObject("build.PDF")
  406. strPDFFilePath = FormatFileName(Trim(outfile.Text))
  407. PDF.setOutFile (strPDFFilePath)
  408. Me.MousePointer = vbHourglass
  409. StatusBar1.Panels(1).Text = "Creating PDF File"
  410. ' Split the string up into individual lines in an array
  411. strScriptArray = Split(txtEditor.Text, vbCrLf)
  412. For i = 0 To UBound(strScriptArray)
  413.   PDF.setPDFCmd (strScriptArray(i))
  414. If chkPrint.Value = vbChecked Then PDF.setPrint
  415. If chkMail.Value = vbChecked Then PDF.setMail
  416. If ownPass.Text <> "" Then PDF.setOwner (ownPass.Text)
  417. If usrPass.Text <> "" Then PDF.setUser (usrPass.Text)
  418. If chk128.Value = vbChecked Then PDF.setEncrypt128
  419. retval = PDF.buildPDF
  420. Me.MousePointer = vbNormal
  421. If chkPreview.Value = vbChecked Then
  422.     StatusBar1.Panels(1).Text = "Opening Adobe Acrobat"
  423.     Unload frmPDFPreview
  424.     frmPDFPreview.Pdf1.src = strPDFFilePath
  425.     frmPDFPreview.Show
  426.     StatusBar1.Panels(1).Text = ""
  427. End If
  428. Set PDF = Nothing
  429. End Sub
  430.